home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / password.zip / PASSWORD.WCC < prev    next >
Text File  |  1996-02-12  |  2KB  |  76 lines
  1. start:
  2. cls
  3. dim ans as string
  4. dim pass as string
  5. dim chk as long
  6. dim ex as integer
  7. dim id as integer
  8. dim uname as string
  9.  
  10. locate 10, 5:print"@0A@";"Enter Users Name ";"@0D@";"[                               ]"
  11. locate 10, 23:uname = inputmask("","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
  12. locate 11, 5:print"@0A@";"  Enter Users ID ";"@0D@";"[         ]"
  13. locate 11, 23:id = inputnumber("",1, 9999999)
  14. for ex =  1 to len(uname)
  15.     chk = chk + id + asc(mid(uname, ex, 1))
  16. next ex
  17.  
  18. beg:
  19. locate 12, 4
  20. print"@0A@";" Time Password Is ";"@0C@";"[                  ]"
  21. locate 12, 23:print"@0C@" chk
  22. pass = progpath + "password.sec"
  23.    open "password.sec" for append as #1
  24.    print #1, ucase(uname), chk
  25.    close #1
  26.          open "secret" for output as #2
  27.          print #2, "  "
  28.          print #2, ucase(uname)", Here is your special password for extended"
  29.          print #2, "access. Your password is-->"; chk ;"<--"
  30.          print #2, "Use it wisely!"
  31.          print #2, "  "
  32.          print #2, "               ";makewild.sysopname
  33.          close #2
  34.     goto msg1
  35. ret:
  36. locate 13, 10
  37. print "@04@";"Do you want to generate another password?";
  38.       displayprompt 5:print" ";
  39.  
  40. input ans
  41.       select case ucase(ans)
  42.          case "Y"
  43.            goto start
  44.          case "N"
  45.            cls
  46.            delay .4
  47.            locate 10, 10
  48.            print"@0B@";"Thank you for using Password Generator!"
  49.            delay 2
  50.            end
  51.          case else
  52.            cls
  53.            locate 10, 10
  54.            displayprompt 5
  55.            print"@8C@";" ONLY!!"
  56.            delay 1
  57.          goto ret
  58.   end select
  59. end
  60. /////////////////////////////////////////////////////////////////////////////
  61. //     Send user their password.                                           //
  62. //                                                                         //
  63. /////////////////////////////////////////////////////////////////////////////
  64. msg1:
  65. dim note as string
  66. dim msg as messageheader
  67. note = "secret"
  68. msg.from = makewild.sysopname
  69. msg.to = uname
  70. msg.subject = "Extended Access"
  71. addmessage msg, note
  72. del "secret"
  73. delay 1
  74. locate 9, 10:print "@05@Password Sent To, ";ucase(uname)
  75. delay 2
  76. goto ret